home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / xmasfile < prev   
Text File  |  2007-02-28  |  968b  |  37 lines
  1. 0010 DIM RECIPIENT$ OF 30, SENDER$ OF 30
  2. 0020 DIM DATE$ OF 20, ANSW$ OF 10
  3. 0030 //
  4. 0040 WRITEFROM(5)
  5. 0050 INPUT "WHAT DATE (E.G. 12 DECEMBER 1980)? ": DATE$
  6. 0060 SENDER$:="HANNIBAL"
  7. 0070 //
  8. 0080 OPEN FILE 2,"XMAS",READ
  9. 0090 REPEAT 
  10. 0100 READ FILE 2: RECIPIENT$
  11. 0110 WRITECARD
  12. 0120 FOR LN:=1 TO 3 DO PRINT 
  13. 0130 INPUT "PRESS THE RETURN-KEY: ": ANSW$
  14. 0140 UNTIL EOF(2) //END-OF-FILE//
  15. 0150 CLOSE
  16. 0160 WRITEFROM(5)
  17. 0170 PRINT "NO MORE XMAS CARDS."
  18. 0180 PRINT "DON'T FORGET TO STAMP THEM."
  19. 0190 END 
  20. 0200 //
  21. 0210 PROC WRITECARD 
  22. 0220 WRITEFROM(5)
  23. 0230 PRINT "         ODDINGTON, ",DATE$
  24. 0240 PRINT 
  25. 0250 PRINT "DEAR ",RECIPIENT$
  26. 0260 PRINT 
  27. 0270 PRINT "I WISH YOU A MERRY CHRISTMAS AND"
  28. 0280 PRINT "A HAPPY AND PROFITABLE NEW YEAR."
  29. 0290 PRINT "                  LOVE FROM"
  30. 0300 PRINT "                  ",SENDER$
  31. 0310 ENDPROC WRITECARD
  32. 0320 //
  33. 0330 PROC WRITEFROM(LINE) 
  34. 0340 PRINT CHR$(147) //CLEAR//
  35. 0350 FOR I:=1 TO LINE DO PRINT  //CURSOR DOWN
  36. 0360 ENDPROC WRITEFROM
  37.